      *> File Name     000004_Structs.cbl.
      *> Description   Using .NET structs.
      *> Project Type  Console Application.
      *> CodePlex URL  http://cobol.codeplex.com
 
      *> Config        Add a reference to System.Drawing.
  
       program-id.   Main.
       repository.
           class sys-console as "System.Console"
           class point       as "System.Drawing.Point"
           .
       working-storage section.
       01  p  point.
       procedure division.
           move "Using .NET Structs" to sys-console::"Title"
 
           move point::"New"(10, 20) to p
           display string::"Format"("Before: {0}", p)
 
           invoke p::"Offset"(5, 5)
           display string::"Format"(" After: {0}", p)
 
           display "Press any key to continue . . . " no advancing
           invoke sys-console::"ReadKey"(true)
           .
       end program   Main.